(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      5604,        167]
NotebookOptionsPosition[      4512,        138]
NotebookOutlinePosition[      4869,        154]
CellTagsIndexPosition[      4826,        151]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:6b27\:59c6\:8868\:8bd5\:9a8c\:573a", "Title",
 CellChangeTimes->{{3.7849318299184666`*^9, 
  3.7849318324726386`*^9}},ExpressionUUID->"e783e056-a276-47b2-a473-\
3e3c7f4e5a8b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"equ", ",", "Rx"}], "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.7849318694039297`*^9, 3.784931881356949*^9}, 
   3.784932306201024*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"efeb3934-4d58-4ab4-89d6-04f585bcb746"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Rx", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"e", " ", "R1"}], "+", 
       RowBox[{"e", " ", "R2"}], "-", 
       RowBox[{"Ig", " ", "R1", " ", "R3"}], "-", 
       RowBox[{"Ig", " ", "R2", " ", "R3"}], "-", 
       RowBox[{"Ig", " ", "R1", " ", "R4"}], "-", 
       RowBox[{"Ig", " ", "R2", " ", "R4"}], "-", 
       RowBox[{"Ig", " ", "R3", " ", "R4"}], "-", 
       RowBox[{"Ig", " ", "R1", " ", "Rg"}], "-", 
       RowBox[{"Ig", " ", "R2", " ", "Rg"}], "-", 
       RowBox[{"Ig", " ", "R4", " ", "Rg"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"Ig", " ", 
       RowBox[{"(", 
        RowBox[{"R1", "+", "R2", "+", "R3", "+", "Rg"}], ")"}]}], ")"}]}]}], 
   "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7849318822555456`*^9, 3.7849323065062103`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"8df93b58-4d0c-4688-9912-bae36e277efd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Rg", "\[Rule]", "2600"}], ",", 
    RowBox[{"R1", "\[Rule]", "1100"}], ",", 
    RowBox[{"R2", "\[Rule]", "140"}], ",", 
    RowBox[{"R3", "\[Rule]", "90"}], ",", 
    RowBox[{"R4", "\[Rule]", "10000"}], ",", 
    RowBox[{"e", "\[Rule]", "1.5"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.78493189622362*^9, 3.784931964626173*^9}, 
   3.784932285220954*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"2937eecb-5bd9-464e-86fc-f9028e4ae15f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Rx", "\[Rule]", 
    FractionBox[
     RowBox[{"1860.`", "\[VeryThinSpace]", "-", 
      RowBox[{"42635600", " ", "Ig"}]}], 
     RowBox[{"3930", " ", "Ig"}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.7849319565926085`*^9, 3.7849319653661556`*^9}, {
  3.7849322862940426`*^9, 3.7849323124357505`*^9}},
 CellLabel->"Out[25]=",ExpressionUUID->"6d36506d-caea-43b5-b457-bd97be8a7996"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Rx", "/.", 
   RowBox[{"{", 
    RowBox[{"Rx", "\[Rule]", 
     FractionBox[
      RowBox[{"1860.`", "\[VeryThinSpace]", "-", 
       RowBox[{"42635600", " ", "Ig"}]}], 
      RowBox[{"3930", " ", "Ig"}]]}], "}"}]}], "/.", 
  RowBox[{"{", 
   RowBox[{"Ig", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"i", "*", "5", "*", 
        RowBox[{"10", "^", 
         RowBox[{"-", "6"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "6", ",", "10"}], "}"}]}], "]"}], "}"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.7849320073748384`*^9, 3.7849321254879007`*^9}, {
   3.784932193699869*^9, 3.7849322095132113`*^9}, 3.784932323040106*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"2ad679d5-6527-4013-bd0b-282b6aed917e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
   "4927.32824427481`", ",", "2673.6023264267533`", ",", "983.3078880407126`",
     ",", 
    RowBox[{"-", "331.36556403732027`"}], ",", 
    RowBox[{"-", "1383.1043256997466`"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7849321297096167`*^9, {3.784932198503978*^9, 3.7849322104377403`*^9}, 
   3.7849323255832753`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"c3993956-8231-4f59-bac0-584c843ec509"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7849322973706293`*^9, 
  3.7849322988606467`*^9}},ExpressionUUID->"9ea18cef-3eea-46da-8c63-\
ec9b3bc2fd00"]
}, Open  ]]
},
WindowSize->{1280, 637},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 183, 3, 96, "Title",ExpressionUUID->"e783e056-a276-47b2-a473-3e3c7f4e5a8b"],
Cell[CellGroupData[{
Cell[788, 29, 294, 6, 66, "Input",ExpressionUUID->"efeb3934-4d58-4ab4-89d6-04f585bcb746"],
Cell[1085, 37, 934, 23, 32, "Output",ExpressionUUID->"8df93b58-4d0c-4688-9912-bae36e277efd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2056, 65, 513, 12, 28, "Input",ExpressionUUID->"2937eecb-5bd9-464e-86fc-f9028e4ae15f"],
Cell[2572, 79, 445, 10, 58, "Output",ExpressionUUID->"6d36506d-caea-43b5-b457-bd97be8a7996"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3054, 94, 803, 22, 71, "Input",ExpressionUUID->"2ad679d5-6527-4013-bd0b-282b6aed917e"],
Cell[3860, 118, 465, 11, 32, "Output",ExpressionUUID->"c3993956-8231-4f59-bac0-584c843ec509"]
}, Open  ]],
Cell[4340, 132, 156, 3, 28, "Input",ExpressionUUID->"9ea18cef-3eea-46da-8c63-ec9b3bc2fd00"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

